home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 069 (1988-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 069 (1988-08-15)(Ossowski, Stefan)(DE)(PD).adf / c / Kennen.mod < prev    next >
Text File  |  1988-06-19  |  1KB  |  53 lines
  1. MODULE Kennen;
  2.  
  3. FROM Terminal IMPORT WriteString,WriteLn ;
  4.  
  5. VAR Taste,W,Eingabe         : INTEGER ;
  6.  
  7.          
  8. BEGIN
  9.  
  10. FOR W := 0 TO 30 DO
  11.    WriteLn;
  12.      END;
  13.  
  14. FOR W := 0 TO 50 DO
  15.    WriteString("                   Kennen Sie die TAIFUN PD-Disketten?");
  16.    WriteLn;
  17. END;
  18.                 
  19. FOR W := 0 TO 50 DO
  20.    WriteString("         Wenn nicht, dann bestellen Sie sich schnell welche!");
  21.    WriteLn;
  22. END;
  23.             
  24. FOR W := 0 TO 50 DO
  25.    WriteString("                     Wo und wie????????????????");
  26.    WriteLn;
  27. END;
  28.  
  29. FOR W := 0 TO 50 DO
  30.    WriteString(" Bei: Stefan Ossowski, Veronikastr.33, 4300 Essen 1, Tel. 0201/788778");
  31.    WriteLn;
  32. END;
  33.  
  34. FOR W := 0 TO 50 DO
  35.    WriteString(" TAIFUN's und viele andere PD-Disks hält er für Sie bereit.");
  36.    WriteLn;
  37. END;
  38.  
  39. FOR W := 0 TO 50 DO
  40.    WriteString("              Bis bald, vielleicht ???????????????????????");
  41.    WriteLn;
  42. END;
  43.  
  44. WriteLn;
  45. WriteLn;
  46. WriteLn;
  47. WriteLn;
  48. WriteLn;
  49. WriteLn;
  50. WriteLn;
  51.                                        
  52. END Kennen.
  53.